home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCSMNO.SRC < prev    next >
Text File  |  1990-11-03  |  5KB  |  276 lines
  1. ;\|
  2. ;FPCSMNO.SRC     Translated from FPCSMNO.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  01:46:12 PM  16/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(DOB1|S|8||)
  6.     define(DOB2|S|8||)
  7.     define(MEM_DOC|N|1||)
  8.     define(NO_CTR|N|4||)
  9.     define(YES_CTR|N|4||)
  10.     define(TOT_CTR|N|4||)
  11.     define(PERCENT|N|5|2|)
  12.     define(TO_DATE|S|8||)
  13.     define(DOC_NAME|A|30||)
  14.     define(TD|S|8||)
  15.     define(S_CTR|N|4||)
  16.     define(F_CTR|N|4||)
  17.     define(H_CTR|N|4||)
  18.     define(O_CTR|N|4||)
  19.     define(OPC|N|5|2|)
  20.     define(HPC|N|5|2|)
  21.     define(SPC|N|5|2|)
  22.     define(FRPC|N|5|2|)
  23.     define(TD|S|8||)
  24.     date(TD|G)
  25.     open(GPSETUP||0|)
  26.     open(PATIENT||0|)
  27.     open(RECALLS||0|)
  28.     open(MEMORY||0|)
  29. START:
  30.     mount(NEWS|S)
  31.     find(B|MEM_NAME||)
  32.     TO_DATE = (MEM_TO_DATE)
  33.     DOB1 = (MEM_DOB1)
  34.     DOB2 = (MEM_DOB2)
  35.     MEM_DOC = (1)
  36.     trap(I|G|EXIT2)
  37.     gosub MOUNT
  38. STARTER:
  39.     find(B|HEADING||)
  40.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  41.     trap(P|S|SHEADING)
  42.     ptof
  43.     DATE.OF.BIRTH = (DOB1)
  44.     find(B|COD.PAT.NAME|EXIT|)
  45. TEST:
  46.     if COD[1] = ("") do
  47.         {
  48.         if COD.D[1] = (0) then goto NEXT
  49.         }
  50.     RECORD.NUMBER = (COD.REF)
  51.     find(M|RECORD.NUMBER|EXIT|)
  52.     pmsg(DATE.OF.BIRTH|1|1|N|N|S|)
  53.     if DOCTOR <> (MEM_DOC) goto NEXT
  54.     if SEX <> ("F") goto NEXT
  55.     if DATE.OF.BIRTH > (DOB2) goto NEXT
  56.     if DATE.OF.BIRTH < (DOB1) goto NEXT
  57.     gosub FINDREC
  58. NEXT:
  59.     find(N|RECALLS|EXIT|)
  60.     goto TEST
  61. FINDREC:
  62. NO_IMDATE:
  63.     if COD[1] = ("HYS") ret
  64.     if SM_DATE < (TO_DATE-2005) do
  65.         {
  66.         pfmt(7|||N|N|)
  67.         TOT_CTR = (TOT_CTR+1)
  68.         clr(RECALLS|B)
  69.         ret
  70.         }
  71.     ret
  72. NOCOD:
  73.     clr(RECALLS|B)
  74.     goto NEXT
  75. SHEADING:
  76.     pfmt(1|||N|N|)
  77.     pfmt(2|||N|N|)
  78.     pblnk(1)
  79.     pfmt(3|||N|N|)
  80.     pblnk(2)
  81.     pfmt(4|||N|N|)
  82.     pblnk(1)
  83.     pfmt(5|||N|N|)
  84.     pfmt(6|||N|N|)
  85.     ret
  86. MOUNT:
  87.     pchr(P|4)
  88.     mount(NEW1|R|P)
  89.     pset(132|70|66)
  90.     pchr(P|1)
  91.     ret
  92. EXIT:
  93.     pfmt(8|||N|N|)
  94.     trap(P|D)
  95.     ptof
  96.     TOT_CTR = (0)
  97.     MEM_DOC = (MEM_DOC+1)
  98.     if MEM_DOC > (4) goto EXIT2
  99.     goto STARTER
  100. EXIT2:
  101.     run("recmenu")
  102. \R NEW     
  103. SMEAR TARGET REPORT FOR &                              ON &        FROM DOB &        TO &        PRINTED &
  104. =================================================================================================================================
  105. WOMANS NAME                  ADDRESS               AREA                   D.O.B       LAST SMEAR  WHERE CODE  NEXT DUE
  106. =================================================================================================================================
  107. &                           &                      &                      &          &              &   &      &
  108. &                           &                      &                      &          NO RECORD FOR THIS PATIENT
  109. TOTAL AT RISK                  = &    (NOT INCLUDING HYSTERECTOMIES)
  110. TOTAL UP TO DATE               = &
  111. PERCENTAGE UP TO DATE          = &
  112. DONE AT SURGERY                = &     %&
  113. DONE AT HOSPITAL               = &     %&
  114. DONE AT FAMILY PLANNING CLINIC = &     %&
  115. DONE AT OTHER                  = &     %&
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151. \
  152. DOC_NAME
  153. TO_DATE
  154. DOB1
  155. DOB2
  156. TD
  157. PATIENT.NAME
  158. ADDRESS1
  159. AREA
  160. DATE.OF.BIRTH
  161. SM_DATE
  162. WHERE
  163. COD[1]
  164. COD.D[1]
  165. PATIENT.NAME
  166. ADDRESS1
  167. AREA
  168. DATE.OF.BIRTH
  169. TOT_CTR
  170. YES_CTR
  171. PERCENT
  172. S_CTR
  173. SPC
  174. H_CTR
  175. HPC
  176. F_CTR
  177. FRPC
  178. O_CTR
  179. OPC
  180. \
  181. \STNEWS    
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.                             SMEARS
  189.                  FPC TARGET PRINT OUTS 11" PAPER
  190.              ╔═══════════════════════════════════════╗
  191.              ║                                       ║
  192.              ║             FPC TARGET DATE:&         ║
  193.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  194.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  195.              ║               DOCTOR NUMBER:&         ║
  196.              ╚═══════════════════════════════════════╝
  197.                                ESC-EXIT
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206. \
  207. TO_DATE
  208. DOB1
  209. DOB2
  210. MEM_DOC
  211. \
  212. \R NEW1    
  213. &                                                    NORTH YORKSHIRE                             Date:&
  214.                                                 FAMILY PRACTITIONER COMMITTEE
  215.                                       LIST OF WOMEN FOR GP CYTOLOGY TARGETS AS AT : &
  216.                     Women Who Are Eligible But Have Not Been Smeared  Or Have Been Smeared Inadequately
  217. Surname        Forename             Nhs Number      Date Of Birth   Rcl Date     Test Date Result  Under GMS Y/N
  218. ===========================         ==========      =============   ========     ========  ======  =============
  219. &                                   &               &               &            &         &       &
  220. Total:&
  221. &                            Exception check it!
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261. \
  262. DOC_NAME
  263. TD
  264. TO_DATE
  265. PATIENT.NAME
  266. NHS.NUM
  267. DATE.OF.BIRTH
  268. COD.D[1]
  269. SM_DATE
  270. COD[1]
  271. WHERE
  272. TOT_CTR
  273. PATIENT.NAME
  274. \
  275.  
  276.